(Fintern): Properly compare lisp objects.

diff --git a/src/lread.c b/src/lread.c
index 755c6ec1d0a9ed08351da9eba27f611a5b3f4b53..00d93192f3033df73c93a79feb4d46e9005a8181 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -2320,7 +2320,7 @@ it defaults to the value of `obarray'.")
   XSYMBOL (sym)->obarray = obarray;
 
   if ((XSTRING (string)->data[0] == ':')
-      && obarray == initial_obarray)
+      && EQ (obarray, initial_obarray))
     XSYMBOL (sym)->value = sym;
 
   ptr = &XVECTOR (obarray)->contents[XINT (tem)];